﻿Imports MeoTom.Core.BLL

Partial Public Class _Default2
    Inherits MasterPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        'Dim p As New MeoTom.Core.BLL.Pages
        Dim cat As New Core.BLL.Categories()
        'Dim tag As New MeoTom.Core.BLL.Tags()
        'Dim lnk As New MeoTom.Core.BLL.Link()

        Session.CodePage = 65001

        mymenu.InnerHtml = cat.ReadCategory()
        'RightPanel.InnerHtml = a.ReadTop10View()
        'RightPanel.InnerHtml &= a.ReadTop10Last()
        'RightPanel.InnerHtml &= tag.ReadDefaultTag()
        'RightPanel.InnerHtml &= "<a href=""/Resource/RSS/Trang-Chu.xml"" target=""_blank"" title=""RSS Feed"" onfocus=""this.blur();""><img src=""http://blog.meotom.net/Images/rss.png"" width=""184"" height=""130"" alt=""Rss"" /></a><br />"
        'LeftPanel.InnerHtml &= p.ReadTop10Last()
        'LeftPanel.InnerHtml &= "<img src=""http://blog.meotom.net/Images/Customize/cat_11.jpg"" style=""margin-bottom:10px;"" alt=""meo tom"" /><br /><img src=""http://blog.meotom.net/Images/Customize/cat_21.jpg"" style=""margin-bottom:10px;"" alt=""meo tom"" /><br /><img src=""http://blog.meotom.net/Images/Customize/cat_31.jpg"" style=""margin-bottom:10px;"" alt=""meo tom"" /><br /><img src=""http://blog.meotom.net/Images/Customize/cat_41.jpg"" style=""margin-bottom:10px;"" alt=""meo tom"" />"
        'LeftPanel.InnerHtml &= lnk.ReadTopLink()
        'LeftPanel.InnerHtml &= WriteWeather()
    End Sub

    'Public Function WriteWeather() As String
    '    Dim strOut As New StringBuilder()
    '    strOut.Append("<div class=""otherBox fl"">")
    '    strOut.Append("<h3>Thời tiết</h3>")
    '    strOut.Append("<div class=""hr fl""> </div>")
    '    strOut.Append("<div class=""content-box"">")
    '    strOut.Append("<select name=""cboListCity"" style=""width:176px;"" onchange=""javascript:Util.getWeather(this.value);""><option value=""SonLa"">Sơn La</option><option value=""Haiphong"">Hải Phòng</option><option value=""Hanoi"" selected=""selected"">Hà Nội</option><option value=""Vinh"">Vinh</option><option value=""Danang"">Đà Nẵng</option><option value=""Nhatrang"">Nha Trang</option><option value=""Pleicu"">Pleiku</option><option value=""HCM"">Tp HCM</option><option value=""Viettri"">Việt Trì</option></select>")
    '    strOut.Append("<div id=""myWeather""></div>")
    '    strOut.Append("</div>")
    '    strOut.Append("</div>")
    '    Return strOut.ToString()
    'End Function
End Class